Wildcat Files 2/The Wildcat Files 2 (Arsenal Computer).ISO/qmw-util/quickset.scr

Text File | 1995-02-10 | 4KB | 211 lines

dialog mytype 10,10,300,150
  caption "Quick Setup and Configuration"
  font 11, "Terminal"
  groupbox "Terminal Emulations",-1,5,5,190,115
  pickemulation as listbox 102,6,15,188,109
  groupbox    "Emulation Options", -1,200,  5, 80,70
  o_doorway  as checkbox    "Doorway"       ,132,205, 15, 60,11
  o_addlftoc as checkbox    "Add LF to CR  ",133,205, 24, 60,11
  o_8thbitst as checkbox    "8th Bit Strip ",134,205, 33, 60,11
  o_splitscr as checkbox    "Split Screen  ",135,205, 42, 60,11
  o_scrollba as checkbox    "Scrollback    ",136,205, 51, 60,11
  o_clear    as checkbox    "Clear Screen  ",137,205, 60, 60,11
  groupbox                 "Command Options", -1,  5,120,290,25
  ltext                      "Dial"         , -1, 10,132, 20,11
  c_system   as edittext                     138, 30,132, 60,11
  ltext    "At"             ,-1, 92,132,15,11
  c_phonenum as edittext                     139,105,132, 60,11
  ltext    "Retries ="      ,-1,167,132,40,11
  c_retries  as edittext                     140,205,132, 10,11
  c_addtophn as checkbox  "Add To Phonebook",141,220,132, 70,11
  defpushbutton "OK!   " ,idok,205,78,60,11
  pushbutton    "Cancel" ,idcancel,205,96,60,11
end dialog

sub mytype.INIT
  call addlistboxitem (hwindow,102,"ADDS VP60")
  call addlistboxitem (hwindow,102,"ADM3A")
  call addlistboxitem (hwindow,102,"ANSI")
  call addlistboxitem (hwindow,102,"Avatar")
  call addlistboxitem (hwindow,102,"Debug Ascii")
  call addlistboxitem (hwindow,102,"Debug Hex")
  call addlistboxitem (hwindow,102,"DG 100")
  call addlistboxitem (hwindow,102,"DG 200")
  call addlistboxitem (hwindow,102,"DG 210")
  call addlistboxitem (hwindow,102,"Hazeltine 1500")
  call addlistboxitem (hwindow,102,"Heath 19")
  call addlistboxitem (hwindow,102,"IBM 3101")
  call addlistboxitem (hwindow,102,"RIPscrip")
  call addlistboxitem (hwindow,102,"TTY")
  call addlistboxitem (hwindow,102,"TVI 910")
  call addlistboxitem (hwindow,102,"TVI 912")
  call addlistboxitem (hwindow,102,"TVI 922")
  call addlistboxitem (hwindow,102,"TVI 925")
  call addlistboxitem (hwindow,102,"TVI 950")
  call addlistboxitem (hwindow,102,"TVI 955")
  call addlistboxitem (hwindow,102,"Vidtex")
  call addlistboxitem (hwindow,102,"VT 52")
  call addlistboxitem (hwindow,102,"VT 100")
  call addlistboxitem (hwindow,102,"VT 102")
  call addlistboxitem (hwindow,102,"VT 220")
  call addlistboxitem (hwindow,102,"VT 320")
  call addlistboxitem (hwindow,102,"Wyse 30")
  call addlistboxitem (hwindow,102,"Wyse 50")
  call addlistboxitem (hwindow,102,"Wyse 60")
  call addlistboxitem (hwindow,102,"Wyse 75")
  call addlistboxitem (hwindow,102,"Wyse 85")
  call addlistboxitem (hwindow,102,"Wyse 100")
  call addlistboxitem (hwindow,102,"Wyse 185")
  call addlistboxitem (hwindow,102,"IBM 3270")
end sub

dim quicksetup as mytype
dim result as integer
dim noconnect as boolean
dim dialtrys  as integer
dim mysystem as phoneentry

result = dialogbox (quicksetup)

emulation quicksetup.pickemulation

if quicksetup.o_doorway then
  doorway (on)
else
  doorway (off)
end if
if quicksetup. o_addlftoc then
  addlftocr (on)
else
  addlftocr (off)
end if
if quicksetup. o_8thbitst then
  striphibit (on)
else
  striphibit (off)
end if
if quicksetup. o_splitscr then
  splitscreen (on)
else
  splitscreen (off)
end if
if quicksetup. o_scrollba then
  scrollbackrecord (on)
else
  scrollbackrecord (off)
end if
if quicksetup. o_clear then
  cls
end if
dialtrys = 0
noconnect = false
if quicksetup.c_system <> "" then
  print "Dialing  ";quicksetup.c_system;"...Please Wait!"
  do
    dial manual quicksetup.c_phonenum
    waitfor "Connect"
    when match "BUSY" do
      noconnect = true
    end when
    when match "NO CARRIER" do
      noconnect = true
    end when
    when match "VOICE" do
      noconnect = true
    end when
  loop until (dialtrys > val (quicksetup.c_retries)) or not (noconnect)
  if dialtrys < val(quicksetup.c_retries) then
    mysystem.systemname = quicksetup.c_system
    mysystem.number (1) = quicksetup.c_phonenum
    mysystem.retries    = val (quicksetup.c_retries)
    addentry mysystem
    print "Adding Entry To Phonebook!"
  end if
end if